home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Sciences / Acid⁄Base Ident. Lab / background_2568.txt < prev    next >
Text File  |  1990-06-19  |  4KB  |  239 lines
  1. -- background: 2568 from stack: in. Lab
  2. -- bmap block id: 3243
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8. on dim
  9.   global tb
  10.  
  11.   put empty into card field tb
  12.  
  13. end dim
  14.  
  15. on dimmer1
  16.   put 1 into zz
  17.  
  18.   repeat until zz = 6
  19.     set the highlight of  BG button zz to false
  20.     put zz + 1 into zz
  21.   end repeat
  22.  
  23. end dimmer1
  24.  
  25.  
  26. on dimmer2
  27.   global tb
  28.   hide card field id 40
  29.   put 1 into zz
  30.  
  31.   repeat until zz = 6
  32.     set the highlight of  cd button zz to false
  33.     put zz + 1 into zz
  34.   end repeat
  35.   if tb = empty then exit dimmer2
  36.  
  37.  
  38.   set the highlight of card button tb to true
  39.  
  40.  
  41. end dimmer2
  42.  
  43. on dimmer3
  44.   global tb
  45.   put 1 into zz
  46.  
  47.   repeat until zz = 6
  48.     set the highlight of  cd button zz to false
  49.     put zz + 1 into zz
  50.   end repeat
  51.  
  52. end dimmer3
  53.  
  54. on dimmer4
  55.   global count1,count2
  56.   repeat until count1 = count2
  57.     put empty into card field id count1
  58.     put count1 + 1 into count1
  59.   end repeat
  60.   put empty into count1
  61.   put empty into count2
  62. end dimmer4
  63.  
  64.  
  65.  
  66. -- part 1 (button)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=10 top=40 right=93 bottom=62
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: A
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   Global bottle
  81.   global bt
  82.   put empty into field result
  83.  
  84.   dimmer1
  85.   set the highlight of BG button 1 to true
  86.   put "A" into bottle
  87.   put 1 into bt
  88.  
  89.  
  90.  
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 2 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=77 top=41 right=94 bottom=130
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: A
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   Global bottle
  110.   global bt
  111.   put empty into field result
  112.   dimmer1
  113.  
  114.   set the highlight of bg button 2 to true
  115.   put "B" into bottle
  116.   put 2 into bt
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 3 (button)
  122. -- low flags: 00
  123. -- high flags: 0000
  124. -- rect: left=140 top=41 right=94 bottom=193
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: A
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   Global bottle
  136.   global bt
  137.   put empty into field result
  138.   dimmer1
  139.  
  140.   set the highlight of bg button 3 to true
  141.   put "C" into bottle
  142.   put 3 into bt
  143.  
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 4 (button)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=202 top=41 right=94 bottom=254
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: A
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   Global bottle
  163.   global bt
  164.   put empty into field result
  165.   dimmer1
  166.  
  167.   set the highlight of bg button 4 to true
  168.   put "D" into bottle
  169.   put 4 into bt
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 5 (button)
  175. -- low flags: 00
  176. -- high flags: 0000
  177. -- rect: left=263 top=41 right=94 bottom=314
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: A
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   Global bottle
  189.   global bt
  190.   put empty into field result
  191.   dimmer1
  192.   set the highlight of bg button 5 to true
  193.   put "E" into bottle
  194.   put 5 into bt
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 7 (field)
  200. -- low flags: 81
  201. -- high flags: 0004
  202. -- rect: left=6 top=239 right=306 bottom=508
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 3
  207. -- text size: 18
  208. -- style flags: 256
  209. -- line height: 20
  210. -- part name: Result
  211.  
  212.  
  213. -- part 8 (field)
  214. -- low flags: 01
  215. -- high flags: 0000
  216. -- rect: left=333 top=102 right=135 bottom=497
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 3
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Starter
  225.  
  226.  
  227. -- part 9 (field)
  228. -- low flags: 81
  229. -- high flags: 0000
  230. -- rect: left=334 top=173 right=314 bottom=487
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 3
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Starter2
  239.